home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / amigae / mac2e_v40.lha / Mac2E / Sources / domethod.e < prev    next >
Encoding:
Text File  |  1994-08-28  |  690 b   |  22 lines
  1. /*    This procedure was given to me by Wouter van Oortmerssen, the Amiga E author.
  2. It replaces the DoMethod() function (included in the amiga.lib library) for E users. */
  3.  
  4. PROC domethod( obj:PTR TO object, msg:PTR TO msg )
  5.  
  6.     DEF h:PTR TO hook, o:PTR TO object, dispatcher
  7.  
  8.     IF obj
  9.         o := obj-SIZEOF object     /* instance data is to negative offset */
  10.         h := o.class
  11.         dispatcher := h.entry      /* get dispatcher from hook in iclass */
  12.         MOVEA.L h,A0
  13.         MOVEA.L msg,A1
  14.         MOVEA.L obj,A2           /* probably should use CallHookPkt, but the */
  15.         MOVEA.L dispatcher,A3    /*    original code (DoMethodA()) doesn't. */
  16.         JSR (A3)                   /* call classDispatcher() */
  17.         MOVE.L D0,o
  18.         RETURN o
  19.     ENDIF
  20.  
  21. ENDPROC NIL
  22.